4 .RANDOM BOX
5 .BY SCOTT WALPOLE
10 clear 
20 FC=7;BC=0
30 BC=BC+8
40 if &(21)=16 run 
50 X=rnd (15)mul 10
60 Y=rnd (8)mul 10
70 box 0,0,X,Y,3
80 goto 30
:return ;run 
